DEFINITION MODULE ErrorMesg;
(*      File name: ErrorMesg                                                 *)
(*      Creation : Auguest 1985                                              *)
(*      Function : Printer error mesg and exit if nesseary                   *)
(*      By       : Morris                                                    *)
(*                                                                           *)
(*      History of modifcation                                               *)
(*      Date            Who             Why                                  *)
(*                                                                           *)
(*
*    Copyright (c) 1985,1986,1987,1988,1989 by
*    ana-systems, Foster City, California.
*    All Rights Reserved.
*
*    This software is furnished under a license and may be used and copied
*    only  in accordance with  the  terms  of  such  license and  with the
*    inclusion of the above copyright notice.  This software or  any other
*    copies thereof may not be provided or otherwise made available to any
*    other  person.   No title to and ownership of the  software is  herby
*    transferred.
*
*    The information in this software is  subject to change without notice
*    and  should  not be construed as a commitment by ana-systems.   No
*    warranty is implied or expressed.
*
*  SCCID  = "1.1    1/26/86"; 
*)
FROM SYSTEMX IMPORT MERROR;
FROM Files IMPORT FileState;
FROM Program IMPORT CallResult;
EXPORT QUALIFIED FileErrorMesg,MerrorMesg,TerminateMesg,ErrorMessage;

PROCEDURE FileErrorMesg( VAR str  : ARRAY OF CHAR;
                            state : FileState;
                            exit  : BOOLEAN);

PROCEDURE MerrorMesg(VAR str : ARRAY OF CHAR;
                        exit : BOOLEAN);

PROCEDURE ErrorMessage(VAR str : ARRAY OF CHAR;
                          exit : BOOLEAN);

PROCEDURE TerminateMesg(VAR str    : ARRAY OF CHAR;
                            reason : CallResult;
                            exit   : BOOLEAN);

END ErrorMesg.
